var
	c:char;
	i,j,n:integer;
begin
	read(c);
	n:= ord(c)-ord('A')+1;
	for i:=1 to 2*n-1 do
	begin
		{ abs(n-i)个空格 }
		for j:=1 to abs(n-i) do
			write(' ');
		{ (n-abs(n-i))*2-1个字母 }
		for j:=1 to (n-abs(n-i))*2-1 do
			write( chr(ord(c)-abs(n-i)));
		writeln;
	end;
end.
